﻿Imports System
Imports System.IO
Imports System.Runtime.Serialization
Imports System.Runtime.Serialization.Formatters.Binary
<Serializable()> Public Class Method2
    Implements ICloneable

    Private m_FineMassFraction As Double = 0.62 '细粒子的质量分数
    Private m_Dmm As Double = 2.93 '粒子的平均直径，单位为微米
    ''' <summary>
    ''' 细粒子的质量分数
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Property FineMassFraction() As Double
        Get
            Return Me.m_FineMassFraction
        End Get
        Set(ByVal value As Double)
            Me.m_FineMassFraction = value
        End Set
    End Property
    ''' <summary>
    ''' 粒子的平均直径，单位为微米
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Property Dmm() As Double
        Get
            Return Me.m_Dmm
        End Get
        Set(ByVal value As Double)
            Me.m_Dmm = value
        End Set
    End Property

    Public Function Clone() As Object Implements System.ICloneable.Clone
        Dim obj As New Method2
        obj.m_FineMassFraction = Me.m_FineMassFraction '细粒子的质量分数
        obj.m_Dmm = Me.m_Dmm  '粒子的平均直径，单位为微米
        Return obj
    End Function
End Class
